home *** CD-ROM | disk | FTP | other *** search
- global haveScript
- if which is "objects" then put empty into haveScript
- global allScripts
- if which is "extract" then put empty into allScripts
- if which is "handleCount" then
- getHandleCount
- returnPal palBtnNum
- end if
- if which is "variableP" then
- set visible of window "Variable Watcher" to not visible of window "Variable Watcher"
- returnPal palBtnNum
- end if
- if which is "messageP" then
- set visible of window "Message Watcher" to not visible of window "Message Watcher"
- returnPal palBtnNum
- end if
- global ScriptFindString -- HyperTalk global variable
- set lockRecent to true
- setUserLevelFive
- push card
-
- if which is "search" then
- ask "Search for what string?" with ScriptFindString
- if (it is empty) or (the result is "Cancel") then exit to hypercard
- put it into pattern
- end if
-
- put pattern into ScriptFindString
- set lockMessages to true
- set cursor to busy
- lock screen
- put name of this stack into x
- chooseScript x, which, pattern
- repeat with curBkgnd = 1 to the number of bkgnds
- if the shiftKey is down then exit to hypercard
- set cursor to busy
- go to card 1 of bkgnd curBkgnd
- put name of this bg into x
- chooseScript x, which, pattern
- if number of bg btns >=1 then
- repeat with curBgBtn = 1 to the number of bkgnd buttons
- if the shiftKey is down then exit to hypercard
- set cursor to busy
- put "bg btn "&curBgBtn into x
- chooseScript x, which, pattern
- end repeat
- end if
- if number of bg flds >=1 then
- repeat with curBgField = 1 to the number of bkgnd fields
- if the shiftKey is down then exit to hypercard
- set cursor to busy
- put "bg fld "&curBgField into x
- chooseScript x, which, pattern
- end repeat
- end if
- end repeat
- repeat with curCard = 1 to the number of cards
- if the shiftKey is down then exit to hypercard
- set cursor to busy
- go card curCard
- put "card "&curCard into x
- chooseScript x, which, pattern
- if number of cd btns >=1 then
- repeat with curCdBtn = 1 to the number of card buttons
- if the shiftKey is down then exit to hypercard
- set cursor to busy
- put "cd btn "&curCdBtn into x
- chooseScript x, which, pattern
- end repeat
- end if
- if number of cd flds >=1 then
- repeat with curCdFld = 1 to the number of card fields
- if the shiftKey is down then exit to hypercard
- set cursor to busy
- put "cd fld "&curCdFld into x
- chooseScript x, which, pattern
- end repeat
- end if
- end repeat
- set lockMessages to false
- set lockRecent to false
- pop card -- return to where we were
- restoreUserLevel -- set userLevel back to whatever it was
- if which is "extract" then writeScript
- global HEXInfo, haveScript
- if which is "objects" then
- put haveScript into HEXInfo
- put "+++++ Objects with scripts +++++"&return before HEXInfo
- put empty into haveScript
- end if
-